home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / HEADER.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  282b  |  15 lines
  1. ' HEADER.BAS
  2. ' This program demonstrates the SPACE$ and STRING$ functions.
  3.  
  4. CONST LENGTH% = 16
  5.  
  6. fileName$ = "SWEETPEA.DOC"
  7. blank$ = SPACE$(LENGTH%)
  8. asterisk$ = STRING$(LENGTH%, "*")
  9. banner$ = blank$ + asterisk$ + " " + fileName$ + " " + asterisk$
  10.  
  11. CLS
  12.  
  13. PRINT banner$
  14.  
  15.